Dit voorbeeld maakt gebruik van de instructie Reset om alle geopende bestanden te sluiten en de inhoud van alle bestandsbuffers naar de schijf te schrijven. De Variant-variabele FileNumber
wordt als tekenreeks en als nummer gebruikt.
Dim FileNumber
For FileNumber = 1 To 5 ' Loop 5 times.
' Open file for output. FileNumber is concatenated into the string
' TEST for the file name, but is a number following a #.
Open "TEST" & FileNumber For Output As #FileNumber
Write #FileNumber, "Hallo allemaal" ' Write data to file.
Next FileNumber
Reset ' Close files and write contents
' to disk.